function E=rechtschaffner(n)
% function E=rechtschaffner(n)
% Output a Rechtschaffner design for n factors.
% n must be greather or equal to 3


if n<3, error('the number of factors must be greather or equal to 3'),end
  
    
E1=-ones(1,n);
E2=ones(n)-2*eye(n);

if n==6||n==7||n==8  % pour équilibrer le plus possible le plan
    E1=ones(1,n);
    E2=-ones(n)+2*eye(n);
end

E3=unique(perms([-1 -1 ones(1,n-2)]),'rows');

E=[E1;E2;E3];

end
